home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
icon
/
packages.lha
/
packages
/
atari
/
ats.arc
/
TESTS.ARC
/
KEY.ICN
< prev
next >
Wrap
Text File
|
1990-03-28
|
90b
|
6 lines
procedure main()
T := table()
every T[1 to 20] := 1
every write(key(T))
end